﻿Imports System.Drawing

Namespace Forms.Themes
    Public Class ThemeBase

        Private m_CaptionActive As Color = Color.FromArgb(75, 188, 254)
        Public Overridable ReadOnly Property CaptionActive() As Color
            Get
                Return m_CaptionActive
            End Get
        End Property


        Private m_CaptionDeactive As Color = Color.FromArgb(131, 209, 255)
        Public Overridable ReadOnly Property CaptionDeactive() As Color
            Get
                Return m_CaptionDeactive
            End Get
        End Property


        Private m_CaptionText As Color = Color.FromArgb(40, 111, 152)
        Public Overridable ReadOnly Property CaptionText() As Color
            Get
                Return m_CaptionText
            End Get
        End Property

        Private m_Border As Color = Color.FromArgb(55, 126, 168)
        Public Overridable ReadOnly Property Border() As Color
            Get
                Return m_Border
            End Get
        End Property

        Private m_InnerBorder As Color = Color.FromArgb(200, 250, 250, 250)
        Public Overridable ReadOnly Property InnerBorder() As Color
            Get
                Return m_InnerBorder
            End Get
        End Property

        Private m_Back As Color = Color.FromArgb(128, 208, 255)
        Public Overridable ReadOnly Property Back() As Color
            Get
                Return m_Back
            End Get
        End Property


        Private m_ControlBoxActive As Color = Color.FromArgb(51, 153, 204)
        Public Overridable ReadOnly Property ControlBoxActive() As Color
            Get
                Return m_ControlBoxActive
            End Get
        End Property

        Private m_ControlBoxDeactive As Color = Color.FromArgb(88, 172, 218)
        Public Overridable ReadOnly Property ControlBoxDeactive() As Color
            Get
                Return m_ControlBoxDeactive
            End Get
        End Property

        Private m_ControlBoxHover As Color = Color.FromArgb(37, 114, 151)
        Public Overridable ReadOnly Property ControlBoxHover() As Color
            Get
                Return m_ControlBoxHover
            End Get
        End Property

        Private m_ControlBoxPressed As Color
        Public Overridable ReadOnly Property ControlBoxPressed() As Color
            Get
                Return m_ControlBoxPressed
            End Get
        End Property

        Private m_ControlBoxInnerBorder As Color = Color.FromArgb(128, 250, 250, 250)
        Public Overridable ReadOnly Property ControlBoxInnerBorder() As Color
            Get
                Return m_ControlBoxInnerBorder
            End Get
        End Property

        Private m_ControlCloseBoxHover As Color = Color.FromArgb(213, 66, 22)
        Public Overridable ReadOnly Property ControlCloseBoxHover() As Color
            Get
                Return m_ControlCloseBoxHover
            End Get
        End Property

        Private m_ControlCloseBoxPressed As Color = Color.FromArgb(171, 53, 17)
        Public Overridable ReadOnly Property ControlCloseBoxPressed() As Color
            Get
                Return m_ControlCloseBoxPressed
            End Get
        End Property

    End Class

End Namespace

